sub JMail
Dim JMail,SendMail
Set JMail=Server.CreateObject("JMail.SMTPMail")
JMail.Logging=True
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
JMail.ServerAddress=SMTPServer
JMail.Sender=FromUserEmail
JMail.Subject=topic
JMail.Body=mailbody
JMail.AddRecipient ForUserEmail
JMail.Priority=3
JMail.Execute 
Set JMail=nothing 
if err then 
	err.clear
	Response.Write "<center><b> ŹѾ򿪣ַ֧Żַ󣬵ż޷</b>"
else
	Response.Write "<center><b> żѾ</b>"
end if
end sub

sub CDONTS
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
'MailFormat ʼĸʽ0Html 1ı
'BodyFormat ӵĸʽ1ԶΪɵ0mailformat=0ʱӲ䣬Ϊɵ
'To         ʼշĵַ
'Importance ʼҪԣ0 1 2ߣ
'From       ʼͷĵַ
'Subject    ʼ
'Body       ʼ
'Send       ɷʼĶ
objCDO.To         = ForUserEmail 
objCDO.From       = FromUserEmail
objCDO.MailFormat = 0
objCDO.BodyFormat = 0
objCDO.Importance = 1
objCDO.Subject    = topic
objCDO.Body       = mailbody 
objCDO.Send
Set objCDO = Nothing
if err then 
	err.clear
	Response.Write "<center><b> ŹѾ򿪣ַ֧Żַ󣬵ż޷</b>"
else
	Response.Write "<center><b> żѾ</b>"
end if
end sub

sub ASPEmail
Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")  
recipient=ForUserEmail 
sender=FromUserEmail
subject=topic
message=mailbody
mailserver=SMTPServer
result=mailer.SendMail(mailserver, recipient, sender, subject, message)
if err then 
	err.clear
	Response.Write "<center><b> ŹѾ򿪣ַ֧Żַ󣬵ż޷</b>"
else
	Response.Write "<center><b> żѾ</b>"
end if
end sub